home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00075_DragDropStickSwitch.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.9 KB  |  136 lines
  1. --
  2. -- DragDropStick
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag  -- do not respond with pos or neg sound on each play
  13. property waitResponseFlag  -- wait on the positive response until completion of the exercise
  14.  
  15. --JCODE
  16. global gUI
  17.  
  18. on new me
  19.   -- initialize constants:
  20.   set delaySecs = 1
  21.   
  22.   set ancestor = new (script "DragDropSetUp")
  23.   set responseFlag = TRUE
  24.   set waitResponseFlag = FALSE
  25.   
  26.   --add (the actorList, new (script "ObjectUpdater", me))
  27.   return me
  28. end
  29.  
  30.  
  31. on destruct me
  32.   if objectP (ancestor) then destruct (ancestor)
  33.   set ancestor = 0
  34. end
  35.  
  36.  
  37. on noResponse me
  38.   set responseFlag = FALSE
  39. end
  40.  
  41.  
  42. on waitResponse me
  43.   set responseFlag = FALSE
  44.   set waitResponseFlag = TRUE
  45. end
  46.  
  47.  
  48. on initializeRound me
  49.   hideDraggables (me)
  50.   initializeRound (ancestor)
  51.   showDraggables (me)
  52.   showTargets (me)
  53.   initPlay (me)
  54. end
  55.  
  56.  
  57. on mouseDown me, spr
  58.   if not isDraggable (me, spr) then return 0
  59.   
  60.   -- drag until release:
  61.   set testSpr = dragSprite (me, spr)
  62.   if testSpr = -1 then return 1  -- drag ended in starting position (exactly)
  63.   
  64.   -- on release of the mouse
  65.   -- check to see if the sprite is overlapping the correct container:
  66.   
  67.   set matchSprite = checkMatch (me, spr, testSpr)
  68.   hideUnderSprite (me)
  69.   
  70.   if matchSprite then
  71.     -- if a match, snap the draggable to position and stick it there.
  72.     set the castLibNum of sprite spr to the number of castLib "draggablesSwitch"
  73.     snapToPosition (me, spr, matchSprite)
  74.     stickDraggable (me, spr)
  75.     --hideTarget (me, matchSprite)  
  76.     updateStage
  77.     
  78.     -- play the good response sound 
  79.     if responseFlag then playResponseSound(1, 1)
  80.     -- play the proper "ID" sound
  81.     playSprite (gUI, spr, #ID)
  82.     
  83.     -- move a bar graph if one has been set up:
  84.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  85.     
  86.     -- moveOffScreen (me, matchSprite)
  87.     
  88.     set lab = string (getID (me, spr))
  89.     
  90.     
  91.     -- if there is an animation label then play that label:
  92.     if the labelList contains lab then
  93.       clearPictLink (me)
  94.       go lab
  95.       
  96.       -- otherwise check to see if we are done with the activity:
  97.     else
  98.       
  99.       if not done (me) then 
  100.         initPlay (me)
  101.       end if
  102.       
  103.     end if
  104.     
  105.   else
  106.     -- if no match, then move it back to it's starting position:
  107.     showDraggable (me, spr)
  108.     if responseFlag then playResponseSound(0, 1)
  109.   end if
  110.   
  111.   return 1  
  112. end
  113.  
  114.  
  115.  
  116. -- check to see if we are done.  
  117. -- if so, then do an action.
  118.  
  119. on done me
  120.   if checkDone (ancestor) then 
  121.     if waitResponseFlag then playResponseSound (1,1)
  122.     updateStage
  123.     wait (me, delaySecs)
  124.     go "finish"
  125.     unloadCast (me)
  126.     return 1
  127.   else
  128.     return 0
  129.   end if
  130. end
  131.  
  132.  
  133. on initPlay me
  134.   initHandCursor ("hand", getDraggableList (me))
  135. end
  136.